/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / D-G / FORTRAN Goodies.sit / FORTRAN Goodies / ChangeFilename.txt

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 43 68 61 6e 67 65 | 46 69 6c 65 6e 61 6d 65 |..Change|Filename|
|00000010| 2e 74 78 74 00 00 00 00 | 00 00 00 00 00 00 00 00 |.txt....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 01 fc 00 | 00 01 7e a3 6d fa 98 a3 |........|..~.m...|
|00000060| 6d fa 98 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |m.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 95 a9 00 00 |........|........|
|00000080| 23 0d 23 20 43 68 61 6e | 67 65 46 69 6c 65 4e 61 |#.# Chan|geFileNa|
|00000090| 6d 65 73 0d 23 0d 23 09 | 2d 20 63 68 61 6e 67 65 |mes.#.#.|- change|
|000000a0| 73 20 74 68 65 20 66 69 | 6c 65 6e 61 6d 65 20 65 |s the fi|lename e|
|000000b0| 78 74 65 6e 73 69 6f 6e | 0d 23 09 09 6f 66 20 61 |xtension|.#..of a|
|000000c0| 6c 6c 20 66 69 6c 65 73 | 20 69 6e 20 74 68 65 20 |ll files| in the |
|000000d0| 63 75 72 72 65 6e 74 20 | 64 69 72 65 63 74 6f 72 |current |director|
|000000e0| 79 0d 23 0d 23 09 2d 20 | 74 61 6b 65 73 20 32 20 |y.#.#.- |takes 2 |
|000000f0| 61 72 67 75 6d 65 6e 74 | 73 2c 20 74 68 65 20 6f |argument|s, the o|
|00000100| 6c 64 20 61 6e 64 20 6e | 65 77 20 65 78 74 65 6e |ld and n|ew exten|
|00000110| 73 69 6f 6e 73 0d 23 0d | 23 09 2d 20 63 6f 6d 6d |sions.#.|#.- comm|
|00000120| 6f 6e 6c 79 20 75 73 65 | 64 20 74 6f 20 63 68 61 |only use|d to cha|
|00000130| 6e 67 65 20 22 2e 46 4f | 52 22 20 74 6f 20 22 2e |nge ".FO|R" to ".|
|00000140| 46 22 0d 23 09 28 69 2e | 65 2e 20 63 68 61 6e 67 |F".#.(i.|e. chang|
|00000150| 65 66 69 6c 65 6e 61 6d | 65 73 20 66 6f 72 20 66 |efilenam|es for f|
|00000160| 29 0d 23 0d 23 09 45 78 | 61 6d 70 6c 65 20 70 72 |).#.#.Ex|ample pr|
|00000170| 6f 76 69 64 65 64 20 66 | 6f 72 20 6f 77 6e 65 72 |ovided f|or owner|
|00000180| 73 20 6f 66 20 4c 61 6e | 67 75 61 67 65 20 53 79 |s of Lan|guage Sy|
|00000190| 73 74 65 6d 73 20 46 4f | 52 54 52 41 4e 0d 23 09 |stems FO|RTRAN.#.|
|000001a0| a9 ca 31 39 39 30 20 4c | 61 6e 67 75 61 67 65 20 |..1990 L|anguage |
|000001b0| 53 79 73 74 65 6d 73 20 | 43 6f 72 70 2e 0d 23 0d |Systems |Corp..#.|
|000001c0| 69 66 20 7b 23 7d 20 3c | 20 32 0d 09 62 65 65 70 |if {#} <| 2..beep|
|000001d0| 0d 09 65 63 68 6f 20 22 | 75 73 61 67 65 3a 20 20 |..echo "|usage:  |
|000001e0| 43 68 61 6e 67 65 46 69 | 6c 65 4e 61 6d 65 73 20 |ChangeFi|leNames |
|000001f0| 20 4f 6c 64 45 78 74 20 | 20 4e 65 77 45 78 74 22 | OldExt | NewExt"|
|00000200| 0d 09 65 78 69 74 20 31 | 0d 65 6e 64 0d 0d 66 6f |..exit 1|.end..fo|
|00000210| 72 20 6e 61 6d 65 20 69 | 6e 20 60 65 78 69 73 74 |r name i|n `exist|
|00000220| 73 20 2d 66 20 c5 22 7b | 31 7d 22 60 0d 09 28 65 |s -f ."{|1}"`..(e|
|00000230| 76 61 6c 75 61 74 65 20 | 22 7b 6e 61 6d 65 7d 22 |valuate |"{name}"|
|00000240| 20 3d 7e 20 2f 28 c5 29 | a8 31 22 7b 31 7d 22 2f | =~ /(.)|.1"{1}"/|
|00000250| 29 20 3e 20 64 65 76 3a | 6e 75 6c 6c 0d 09 72 65 |) > dev:|null..re|
|00000260| 6e 61 6d 65 20 22 7b 6e | 61 6d 65 7d 22 20 22 7b |name "{n|ame}" "{|
|00000270| a8 31 7d 7b 32 7d 22 0d | 65 6e 64 0d 00 00 00 00 |.1}{2}".|end.....|
|00000280| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000290| 61 74 65 72 20 74 6f 20 | 70 6c 61 79 20 73 6f 75 |ater to |play sou|
|000002a0| 6e 64 73 2e 00 00 00 0c | 00 00 00 00 00 b4 00 fa |nds.....|........|
|000002b0| 12 43 68 61 6e 67 65 46 | 69 6c 65 6e 61 6d 65 2e |.ChangeF|ilename.|
|000002c0| 74 78 74 67 02 00 00 00 | 50 61 72 74 53 49 54 78 |txtg....|PartSITx|
|000002d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 a9 80 18 c3 00 00 | 00 00 00 00 01 7e 00 e1 |........|.....~..|
|00000300| 08 13 50 6c 61 79 69 6e | 67 20 73 6f 75 6e 64 20 |..Playin|g sound |
|00000310| 22 5e 30 22 2e 00 00 00 | 00 74 00 01 00 00 00 00 |"^0"....|.t......|
|00000320| 00 80 00 4b 00 98 00 af | 04 0c 53 74 6f 70 20 50 |...K....|..Stop P|
|00000330| 6c 61 79 69 6e 67 00 00 | 00 00 00 19 00 19 00 64 |laying..|.......d|
|00000340| 00 e1 08 49 50 6c 61 79 | 69 6e 67 20 73 6f 75 6e |...IPlay|ing soun|
|00000350| 64 20 22 5e 30 22 20 72 | 65 73 61 6d 70 6c 65 64 |d "^0" r|esampled|
|00000360| 20 74 6f 20 6d 69 64 64 | 6c 65 20 43 20 61 73 20 | to midd|le C as |
|00000370| 69 74 20 77 6f 75 6c 64 | 20 73 6f 75 6e 64 20 69 |it would| sound i|
|00000380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 2f 2a 20 |...H..Mo|naco./* |
|00000390| 61 70 70 6c 69 63 61 74 | 69 6f 6e 27 73 20 70 72 |applicat|ion's pr|
|000003a0| 65 66 65 72 72 65 00 06 | 00 04 00 2a 00 03 01 3d |eferre..|...*...=|
|000003b0| 01 9c 00 2a 00 03 01 3d | 01 9c a3 65 6a 63 00 00 |...*...=|...ejc..|
|000003c0| 01 1f 00 00 01 1f 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000003d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 2d 61 24 |...L...L|...2.-a$|
|000003e0| 06 40 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.@.....2|..MPSR..|
|000003f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 2f 07 e8 00 00 |........|.../....|
+--------+-------------------------+-------------------------+--------+--------+